home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / oracle / puzz_19.dxr / 00115_TILE CLICK SCRIPT.ls < prev    next >
Encoding:
Text File  |  1994-11-08  |  4.3 KB  |  137 lines
  1. on mouseDown
  2.   global difficultyLevel, startPt, drag1Ch
  3.   set mouseX to the mouseH
  4.   set mouseY to the mouseV
  5.   set startPt to point(the locH of sprite the clickOn, the locV of sprite the clickOn)
  6.   set deltaX to mouseX - getAt(startPt, 1)
  7.   set deltaY to mouseY - getAt(startPt, 2)
  8.   swapChannel(drag1Ch, the clickOn)
  9.   updateCursor()
  10.   repeat while the mouseDown
  11.     if rollOver(drag1Ch) = 0 then
  12.       set deltaX to 0
  13.       set deltaY to 0
  14.     end if
  15.     set the locH of sprite drag1Ch to the mouseH - deltaX
  16.     set the locV of sprite drag1Ch to the mouseV - deltaY
  17.     updateCursor()
  18.   end repeat
  19. end
  20.  
  21. on mouseUp
  22.   global numTiles, tileStartCh, startPt, drag1Ch, drag2Ch, mouseMask
  23.   if rollOver(drag1Ch) = 0 then
  24.     swapChannel(the clickOn, drag1Ch)
  25.     exit
  26.   end if
  27.   set rLeft to getAt(the clickLoc, 1) - 5
  28.   set rTop to getAt(the clickLoc, 2) - 5
  29.   set rRight to rLeft + 10
  30.   set rBottom to rTop + 10
  31.   set turnRect to rect(rLeft, rTop, rRight, rBottom)
  32.   if inside(point(the mouseH, the mouseV), turnRect) then
  33.     set a to the left of sprite the clickOn
  34.     if the mouseH <= (a + (the width of sprite the clickOn / 2)) then
  35.       set direction to 1
  36.     else
  37.       set direction to -1
  38.     end if
  39.     turnTile(the clickOn, direction)
  40.     checkPuzzle()
  41.     exit
  42.   end if
  43.   set releasePt to point(the mouseH, the mouseV)
  44.   if the clickLoc = releasePt then
  45.     swapChannel(the clickOn, drag1Ch)
  46.     updateCursor()
  47.     exit
  48.   end if
  49.   set snapToNewLocation to 0
  50.   repeat with theTile = tileStartCh to tileStartCh + numTiles - 1
  51.     if (theTile <> the clickOn) and inside(releasePt, the rect of sprite theTile) then
  52.       set snapToNewLocation to 1
  53.       exit repeat
  54.     end if
  55.   end repeat
  56.   if snapToNewLocation = 1 then
  57.     set endPt to point(the locH of sprite theTile, the locV of sprite theTile)
  58.     swapTile(theTile, endPt, snapToNewLocation)
  59.     swapChannel(drag1Ch, the clickOn)
  60.     set the locH of sprite drag1Ch to getAt(endPt, 1)
  61.     set the locV of sprite drag1Ch to getAt(endPt, 2)
  62.     swapChannel(the clickOn, drag1Ch)
  63.     puppetSound("Click Tile")
  64.     updateStage()
  65.     set tempSprite to the castNum of sprite the clickOn
  66.     set the castNum of sprite the clickOn to the castNum of sprite theTile
  67.     set the castNum of sprite theTile to tempSprite
  68.     set tempX to the locH of sprite the clickOn
  69.     set tempY to the locV of sprite the clickOn
  70.     set the locH of sprite the clickOn to the locH of sprite theTile
  71.     set the locV of sprite the clickOn to the locV of sprite theTile
  72.     set the locH of sprite theTile to tempX
  73.     set the locV of sprite theTile to tempY
  74.     swapTileParameters(the clickOn, theTile)
  75.     checkPuzzle()
  76.   else
  77.     set theTile to the clickOn
  78.     set endPt to point(the locH of sprite drag1Ch, the locV of sprite drag1Ch)
  79.     swapTile(theTile, endPt, snapToNewLocation)
  80.   end if
  81. end
  82.  
  83. on swapTile theTile, endPt, snapToNewLocation
  84.   global numTiles, tileStartCh, startPt, drag1Ch, drag2Ch, mouseMask
  85.   set speed to 5
  86.   set delta to startPt - endPt
  87.   if abs(getAt(delta, 1)) > abs(getAt(delta, 2)) then
  88.     if getAt(endPt, 1) > getAt(startPt, 1) then
  89.       set xDelta to 1
  90.     else
  91.       set xDelta to -1
  92.     end if
  93.     if getAt(delta, 1) = 0 then
  94.       set yDelta to 0
  95.     else
  96.       set yDelta to float(abs(getAt(delta, 2))) / float(abs(getAt(delta, 1)))
  97.     end if
  98.     if getAt(endPt, 2) < getAt(startPt, 2) then
  99.       set yDelta to yDelta * -1
  100.     end if
  101.     set distance to abs(getAt(delta, 1))
  102.   else
  103.     if getAt(delta, 2) = 0 then
  104.       set xDelta to 0
  105.     else
  106.       set xDelta to float(abs(getAt(delta, 1))) / float(abs(getAt(delta, 2)))
  107.     end if
  108.     if getAt(endPt, 1) < getAt(startPt, 1) then
  109.       set xDelta to xDelta * -1
  110.     end if
  111.     if getAt(endPt, 2) > getAt(startPt, 2) then
  112.       set yDelta to 1
  113.     else
  114.       set yDelta to -1
  115.     end if
  116.     set distance to abs(getAt(delta, 2))
  117.   end if
  118.   if snapToNewLocation = 1 then
  119.     set tempCh to drag2Ch
  120.   else
  121.     set tempCh to drag1Ch
  122.   end if
  123.   swapChannel(tempCh, theTile)
  124.   puppetSound("Move Tile")
  125.   repeat with a = 1 to distance / speed
  126.     set the locH of sprite tempCh to getAt(endPt, 1) - (a * xDelta * speed)
  127.     set the locV of sprite tempCh to getAt(endPt, 2) - (a * yDelta * speed)
  128.     updateCursor()
  129.   end repeat
  130.   set the locH of sprite tempCh to getAt(startPt, 1)
  131.   set the locV of sprite tempCh to getAt(startPt, 2)
  132.   updateCursor()
  133.   swapChannel(theTile, tempCh)
  134.   puppetSound("Click Tile")
  135.   updateStage()
  136. end
  137.